﻿' ----------------------------------------------------------------------------------
' Microsoft Developer & Platform Evangelism
' 
' Copyright (c) Microsoft Corporation. All rights reserved.
' 
' THIS CODE AND INFORMATION ARE PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND, 
' EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE IMPLIED WARRANTIES 
' OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
' ----------------------------------------------------------------------------------
' The example companies, organizations, products, domain names,
' e-mail addresses, logos, people, places, and events depicted
' herein are fictitious.  No association with any real company,
' organization, product, domain name, email address, logo, person,
' places, or events is intended or should be inferred.
' ----------------------------------------------------------------------------------

Namespace ViewModel
    Public Class MainPageViewModel
        Inherits BaseViewModel  
        Private notificationsPageViewModelValue As NotificationsPageViewModel  
        Private sqlSampleDataPageViewModelValue As SqlSampleDataPageViewModel   

        Public Property NotificationsViewModel() As NotificationsPageViewModel
            Get
                If Me.notificationsPageViewModelValue Is Nothing Then
                    Me.notificationsPageViewModelValue = New NotificationsPageViewModel()
                End If

                Return Me.notificationsPageViewModelValue
            End Get

            Set(ByVal value As NotificationsPageViewModel)
                Me.notificationsPageViewModelValue = value
            End Set
        End Property

        Public Property SqlSampleDataPageViewModel() As SqlSampleDataPageViewModel
            Get
                If Me.sqlSampleDataPageViewModelValue Is Nothing Then
                    Me.sqlSampleDataPageViewModelValue = New SqlSampleDataPageViewModel()
                End If

                Return Me.sqlSampleDataPageViewModelValue
            End Get

            Set(ByVal value As SqlSampleDataPageViewModel)
                Me.sqlSampleDataPageViewModelValue = value
            End Set
        End Property
    End Class
End Namespace